home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304F.ZIP;1 / EXFOR.ARJ / FGDOC / EXAMPLES / FORTRAN / 14-10.FOR < prev    next >
Encoding:
Text File  |  1994-01-24  |  1.5 KB  |  56 lines
  1. $INCLUDE: 'C:\FG\INTRFACE.FOR'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER*2 SOLID(32), HOLLOW(32)
  6.       INTEGER*2 OLD_MODE
  7.       INTEGER*2 COLUMN, ROW, LAST_ROW
  8.       INTEGER*2 FG_AUTOMODE, FG_GETMAXX, FG_GETMAXY, FG_GETMODE
  9.       INTEGER*2 FG_MOUSEINI, FG_XALPHA, FG_YALPHA
  10.  
  11.       DATA SOLID /
  12.      +   #E03F,#E03F,#E03F,#0007,#0007,#0007,#0007,#0007,
  13.      +   #0007,#0007,#E03F,#E03F,#E03F,#FFFF,#FFFF,#FFFF,
  14.      +   #0000,#0F80,#0F80,#0F80,#7FF0,#7FF0,#7FF0,#7FF0,
  15.      +   #7FF0,#0F80,#0F80,#0F80,#0000,#0000,#0000,#0000/
  16.  
  17.       DATA HOLLOW /
  18.      +   #E03F,#EFBF,#EFBF,#0F87,#7FF7,#7FF7,#7FF7,#7FF7,
  19.      +   #7FF7,#0F87,#EFBF,#EFBF,#E03F,#FFFF,#FFFF,#FFFF,
  20.      +   #0000,#0000,#0000,#0000,#0000,#0000,#0200,#0000,
  21.      +   #0000,#0000,#0000,#0000,#0000,#0000,#0000,#0000/
  22.  
  23.       OLD_MODE = FG_GETMODE()
  24.       CALL FG_SETMODE(FG_AUTOMODE())
  25.  
  26.       IF (FG_MOUSEINI() .LT. 0) THEN
  27.          CALL FG_SETMODE(OLD_MODE)
  28.          CALL FG_RESET
  29.          STOP ' '
  30.       END IF
  31.  
  32.       CALL FG_SETCOLOR(15)
  33.       CALL FG_RECT(0,FG_GETMAXX(),0,FG_GETMAXY())
  34.  
  35.       CALL FG_SETCOLOR(12)
  36.       COLUMN = FG_XALPHA(FG_GETMAXX()/2) - 6
  37.       LAST_ROW = FG_YALPHA(FG_GETMAXY())
  38.  
  39.       DO 10 ROW = 0,LAST_ROW
  40.          CALL FG_LOCATE(ROW,COLUMN)
  41.          CALL FG_TEXT('example 14-10',13)
  42. 10    CONTINUE
  43.  
  44.       CALL FG_MOUSEVIS(1)
  45.       CALL FG_WAITKEY
  46.       CALL FG_MOUSEPTR(SOLID,6,6)
  47.       CALL FG_WAITKEY
  48.       CALL FG_MOUSEPTR(HOLLOW,6,6)
  49.       CALL FG_WAITKEY
  50.  
  51.       CALL FG_SETMODE(OLD_MODE)
  52.       CALL FG_RESET
  53.  
  54.       STOP ' '
  55.       END
  56.